home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / pc / program / play.dxr / 00038.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  455 b   |  16 lines
  1. on mouseUp
  2.   global playnum, videonum, selectedvideonum, status, cursorpointer, cursorwait
  3.   if (status = "about") or (status = "exitAlart") or (status = "helpMenu") or (status = "bomb") then
  4.     exit
  5.   end if
  6.   eracemenudownbutton()
  7.   updateStage()
  8.   cursor(cursorwait)
  9.   set selectedvideonum to string(item 1 of selectedvideonum) & "," & string(videonum)
  10.   zoomBox(7, 15, 1)
  11.   puppetSprite(15, 0)
  12.   updateStage()
  13.   placeqt()
  14.   cursor(cursorpointer)
  15. end
  16.